ged <- read.csv("ged_main.csv") 

#####
##
## Table 1: UCDP Data on Civilian Victimization in the Syrian Civil War
##
#####

# DYADS

length(ged$deaths_civilians[which(ged$dyad_name=="Government of Syria - IS")]) 
length(ged$deaths_civilians[which(ged$dyad_name=="Government of Syria - Syrian insurgents")]) 
length(ged$deaths_civilians[which(ged$dyad_name=="IS - SDF")])

sum(ged$deaths_civilians[which(ged$dyad_name=="Government of Syria - IS")]) 
sum(ged$deaths_civilians[which(ged$dyad_name=="Government of Syria - Syrian insurgents")]) 
sum(ged$deaths_civilians[which(ged$dyad_name=="IS - SDF")])

max(ged$deaths_civilians[which(ged$dyad_name=="Government of Syria - IS")]) 
max(ged$deaths_civilians[which(ged$dyad_name=="Government of Syria - Syrian insurgents")]) 
max(ged$deaths_civilians[which(ged$dyad_name=="IS - SDF")])

# One-Sided Violence

length(govciv3$deaths_civilians,na.rm = T)
length(opciv3$deaths_civilians,na.rm = T)
length(isciv3$deaths_civilians,na.rm = T)
length(sdfciv3$deaths_civilians,na.rm = T)

sum(govciv3$deaths_civilians,na.rm = T)
sum(opciv3$deaths_civilians,na.rm = T)
sum(isciv3$deaths_civilians,na.rm = T)
sum(sdfciv3$deaths_civilians,na.rm = T)

max(govciv3$deaths_civilians,na.rm = T)
max(opciv3$deaths_civilians,na.rm = T)
max(isciv3$deaths_civilians,na.rm = T)
max(sdfciv3$deaths_civilians,na.rm = T)


